home *** CD-ROM | disk | FTP | other *** search
/ The Atari Compendium / The Atari Compendium (Toad Computers) (1994).iso / files / prgtools / langs / clisp-c.zoo / user2.fas < prev    next >
Encoding:
CLISP byte-compiled Lisp program  |  1993-06-05  |  15.1 KB  |  266 lines
  1. (SYSTEM::VERSION '(SYSTEM::CLISP2 14. LISP:T 210292.))
  2. #Y(#:TOP-LEVEL-FORM-1 #13Y(00 00 00 00 00 01 D4 36 02 30 07 19 01) "LISP")
  3. #Y(#:TOP-LEVEL-FORM-2 #13Y(00 00 00 00 00 01 D4 36 01 2F FF 19 01)
  4.    (*EDITOR* EDITOR-TEMPFILE EDIT-FILE SAVEINITMEM)
  5.   )
  6. #Y(#:TOP-LEVEL-FORM-3 #13Y(00 00 00 00 00 01 D4 36 02 30 07 19 01) "SYSTEM")
  7. #Y(#:TOP-LEVEL-FORM-4 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
  8.    APROPOS-LIST REMOVE-OLD-DEFINITIONS
  9.    #Y(APROPOS-LIST
  10.       #49Y(00 01 00 01 00 08 00 29 01 76 03 00 00 39 02 92 29 01 00 0B 00 00 A8
  11.            65 00 01 89 04 0E A8 30 0B 60 01 00 D5 D6 36 02 30 83 19 06 A8 AD 30
  12.            09 1A 6F
  13.           )
  14.       #Y(LISP::APROPOS-LIST-1
  15.          #28Y(00 01 00 00 00 02 61 01 00 AA 36 04 83 45 03 00 19 02 A9 07 00 00
  16.               55 0C 00 00 19 02
  17.              )
  18.          NIL
  19.         )
  20.       #.#'STRING< #.#'SYMBOL-NAME
  21.   )  )
  22. #Y(#:TOP-LEVEL-FORM-5 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
  23.    FBOUND-STRING REMOVE-OLD-DEFINITIONS
  24.    #Y(FBOUND-STRING
  25.       #25Y(00 01 00 00 00 02 A9 83 55 09 93 56 14 85 44 06 C0 19 02 BE 19 02 BF
  26.            19 02
  27.           )
  28.       "special form" "function" "macro"
  29.   )  )
  30. #Y(#:TOP-LEVEL-FORM-6 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
  31.    APROPOS REMOVE-OLD-DEFINITIONS
  32.    #Y(APROPOS
  33.       #72Y(00 01 00 01 00 08 39 01 AA AA 68 00 5B A9 83 B6 32 7E 01 00 14 36 01
  34.            2F 87 A8 84 54 0C D5 36 03 2F 8E A8 67 02 36 03 2F 8E A8 84 53 0F D7
  35.            36 03 2F 8E A8 83 63 0A C3 14 36 03 2F 8E 7A 01 1A 4D C2 1A 74 16 02
  36.            3A 19 03
  37.           )
  38.       APROPOS-LIST "   " FBOUND-STRING "   " "constant" "variable"
  39.   )  )
  40. #Y(#:TOP-LEVEL-FORM-7 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
  41.    DESCRIBE REMOVE-OLD-DEFINITIONS
  42.    #Y(DESCRIBE
  43.       #1095Y(00 01 00 00 00 02 5B 5C D4 2E 01 5C D6 AC 63 03 68 04 2B 03 01 5C
  44.              D9 2E 01 AA 6A 4E 92 1F 80 60 AB 69 05 AC 69 04 5C 5D 5E AF 6A 47
  45.              AC 2B 04 01 A9 24 09 05 5C 5D 5F 2E 01 A8 02 21 07 5C 5D 60 AA 2B
  46.              03 01 AD 84 09 05 5C 5D 61 2E 01 A9 86 A7 16 5C 5D 62 AF 69 07 2B
  47.              03 01 AD 84 15 09 5C 5D 63 AF 69 16 2B 03 01 5C 03 64 14 2E 01 16
  48.              02 16 01 8A 00 09 5C 5D 65 AA 6A 65 2B 03 01 3A 19 03 92 25 06 83
  49.              97 5C C6 1A 13 AB C5 6C 8A 00 16 14 AD 84 C4 71 A8 DD 88 01 2E 07
  50.              5C C8 14 94 1A 83 98 5C C9 1A 02 5C CA 14 2E 01 16 01 1A 41 5C CE
  51.              1A 80 62 5C CF 1A 80 5D 5C 5D 16 2E 01 AB 84 5C 80 7C 5C 03 17 1A
  52.              80 73 5C 5D 18 2E 01 5D 19 AC 73 02 7B 01 5D 1A E8 AD 73 02 73 02
  53.              7B 01 1A 80 5D 5C 5D 20 AA 2B 03 01 1A 80 9B 10 22 1A 80 9E 89 03
  54.              04 5C E1 2E 01 5C E2 AD 2B 03 01 AB 86 A1 04 5C E3 2E 01 AB 84 53
  55.              1B AB 83 63 FF A0 AB 85 A3 FF A0 5C D0 14 2E 01 AB 7B 01 E7 E8 AD
  56.              73 02 73 02 7B 01 AB 84 54 16 5C E9 2E 01 AB 83 55 FF 87 95 56 14
  57.              85 44 FF 90 5C 03 1B 14 2E 01 AB 86 9F 2E 5B AC 6A 9F 8A 00 0B 8B
  58.              00 7B 01 92 54 54 EA 89 00 75 A9 30 65 16 01 EA 5C 5D 1C AA 6A 63
  59.              AB 2B 04 01 16 01 5D 1D E8 AD 73 02 73 02 7B 01 5C 5D 1E 2E 01 5C
  60.              5D 1F 2E 01 AB 6A 9E 89 00 FF 60 5C 5D 21 2E 01 5B 89 01 FF 60 00
  61.              10 23 B0 2F 8B 11 14 69 FB 5B 1A 15 7E 01 00 10 22 B3 2F 8B 11 14
  62.              AB 36 04 84 38 03 A8 7B 03 7A 01 A9 84 B6 67 16 03 8A 00 14 5C 5D
  63.              24 8C 02 5D 25 AC 6B 00 17 5D 26 36 03 6A 83 2B 04 01 16 02 5C 03
  64.              27 1A 82 44 5C 5D 28 AD 30 E8 1A 0E 5C 03 29 1A 82 36 5C 5D 2A AD
  65.              36 01 30 D6 14 95 1A 81 F8 5C 5D 2C 2E 01 1A 35 A9 85 A6 75 5C 5D
  66.              2D 95 1A 17 5C 5D 2B 2E 01 AB 6A DA AC 6A DB A8 85 A6 67 A9 86 A6
  67.              0C 5C 5D 2E 94 14 6A A8 2B 03 01 1A 0C 5C 5D 2F AB 6A A8 AB 6A A8
  68.              2B 04 01 16 02 5C 03 30 1A 81 E5 5C 5D 31 2E 01 AB 69 27 85 A6 05
  69.              5C 5D 32 2E 01 AB 69 28 85 A6 09 5C 5D 33 AD 69 28 2B 03 01 5C 5D
  70.              34 2E 01 5C 5D 35 AD 69 1E 2B 03 01 AB 83 1D FE 0C 5C 03 36 1A 81
  71.              AD AC 2D 38 3E 06 AD AD AD AD AD AD 2B 06 39 5D 3A 5D 19 B4 6A 58
  72.              73 02 73 02 7B 08 5D 3A E8 B4 73 02 73 02 7B 08 16 07 1A FD DC 5C
  73.              5D 3D AA 2B 03 01 16 02 1A FD D0 AB 6A 30 5C 5D 37 AA 2B 03 01 89
  74.              00 FF BC 5C 5D 3B AE DD 30 50 70 2B 03 01 AC 5D 3C 6A 50 89 00 53
  75.              16 02 1A FD AA AC AC AC AC AD AD 2B 06 39 16 06 1A FD 9C 5C 5D 3E
  76.              2E 01 AB 2F 01 3E 06 89 05 65 16 06 1A FD 8A AB 85 44 6A 5C 03 3F
  77.              1A 81 27 5C 5D 40 AD 6A 8E AE 30 8F 1A 80 EA 5C 5D 41 AD 69 F5 2B
  78.              03 01 AB 69 F6 8A 00 07 5C 5D 42 AA 2B 03 01 16 01 5C 5D 43 2E 01
  79.              AB 69 F8 AC 69 F9 5C 5D 44 2E 01 8A 01 0E 5C 5D 45 8C 03 5D 25 AD
  80.              6B 00 17 2B 04 01 5C 5D 46 00 29 01 00 0B 00 00 A8 65 47 01 B1 30
  81.              0A 60 00 00 5D 26 5D 48 36 02 78 83 00 2B 03 01 8A 00 0E 5C 5D 49
  82.              8C 02 5D 25 AC 6B 00 17 2B 04 01 5C 03 4A 1A FC FF 5C 5D 4B AD 2F
  83.              6E 1A 80 88 5C 5D 4C AD 36 02 69 72 30 2A 1A 80 7B 5C 5D 4D 5B 5D
  84.              4E AF 6A 0E B0 6A 0F B1 6A 10 B2 6A 11 B3 6A 12 B4 6A 13 73 06 1A
  85.              2B 5B 5D 4F AB 6A A0 AC AC 68 50 66 04 01 59 01 1A 0F 16 03 1A 1B
  86.              8B 01 93 1F 77 8B 01 89 00 61 00 14 AD 77 CB 04 16 02 7A 01 7A 00
  87.              93 20 67 16 02 A8 77 CC 00 2B 03 01 1A FC 98 5C 03 51 1A 3A 5C 5D
  88.              52 AD 6A EA AE 30 EB 14 2B 04 01 1A FC 83 5C 03 53 1A 25 5C 5D 54
  89.              AD 67 55 5D 56 31 02 3B 14 2B 03 01 1A FC 6C 5C 5D 57 2E 01 AB 2D
  90.              58 1A FC 61 5C 03 59 1A 03 5C 03 5A 14 2E 01 1A FC 53 5C 5D 5B AA
  91.              2B 03 01 AB 5D 5C 6A 50 92 1F 17 5C 5D 5D AA 2F C5 71 AB 30 64 72
  92.              30 65 54 14 2B 03 01 16 01 1A FC 2D 16 01 1A FC 28
  93.             )
  94.       "~%Description of~%" FORMAT "~A" *PRIN-LINELENGTH* WRITE-TO-SHORT-STRING
  95.       "~%This is "
  96.       #S(HASH-TABLE EQ (ADDRESS . 912.) (SYSTEM-INTERNAL . 907.)
  97.          (FRAME-POINTER . 896.) (READ-LABEL . 878.) (LOAD-TIME-EVAL . 873.)
  98.          (BYTE . 857.) (RANDOM-STATE . 852.) (PATHNAME . 766.)
  99.          (READTABLE . 753.) (HASH-TABLE . 744.) (PACKAGE . 632.)
  100.          (STREAM . 620.) (COMPILED-FUNCTION . 610.) (FUNCTION . 540.)
  101.          (CHARACTER . 430.) (COMPLEX . 379.) (LONG-FLOAT . 349.)
  102.          (DOUBLE-FLOAT . 349.) (SINGLE-FLOAT . 349.) (SHORT-FLOAT . 349.)
  103.          (RATIO . 343.) (BIGNUM . 335.) (FIXNUM . 335.) (NULL . 109.)
  104.          (SYMBOL . 109.) (CONS . 6.)
  105.         )
  106.       #Y(LISP::DESCRIBE-LIST-LENGTH
  107.          #47Y(00 01 00 00 00 02 D4 AA AB 93 1F 18 93 54 1F 17 8C 01 93 21 17 93
  108.               54 71 7A 01 62 01 D5 AB 79 02 33 02 1A 65 94 19 05 AA 30 AB 19 05
  109.               00 19 05
  110.              )
  111.          0. 2.
  112.         )
  113.       "a list of length ~S." 1. "a dotted list of length ~S." "a cons."
  114.       "a cyclic list." "the empty list, " "the symbol ~S" ", a keyword"
  115.       ", a constant" ", a variable declared SPECIAL" ", a variable"
  116.       SYMBOL-VALUE QUOTE ", names " "a special form" " with macro definition"
  117.       "a function" FUNCTION SYMBOL-FUNCTION "a macro"
  118.       ", has the propert~@P ~{~S~^, ~}" SYMBOL-PLIST "." "~%The symbol "
  119.       "lies in ~S" "is uninterned" *PACKAGE* *PRINT-GENSYM*
  120.       " and is accessible in the package~:[~;s~] ~{~A~^, ~}" #.#'PACKAGE-NAME
  121.       #.#'STRING< "." "an integer, uses ~S bits, is represented as a ~(~A~)."
  122.       "a rational, not integral number."
  123.       "a float with ~S bits of mantissa (~(~A~))." "a complex number "
  124.       "at the origin" "on the ~:[posi~;nega~]tive real axis"
  125.       "on the ~:[posi~;nega~]tive imaginary axis"
  126.       "in ~:[~:[first~;fourth~]~;~:[second~;third~]~] the quadrant"
  127.       " of the Gaussian number plane." "a character" " with additional bits"
  128.       " from font ~S" "." "~%It is a ~:[non-~;~]printable character."
  129.       "~%Its use is non-portable." "an ~:[interpret~;compil~]ed function."
  130.       SIGNATURE DESCRIBE-SIGNATURE DISASSEMBLE "~%argument list: ~S" 2.
  131.       "~%documentation: ~A" "a built-in system function."
  132.       "a special form handler."
  133.       "a~:[~:[ closed ~;n output-~]~;~:[n input-~;n input/output-~]~]stream."
  134.       "the package named ~A" ". It has the nicknames ~{~A~^, ~}" "." "~%It "
  135.       "imports the external symbols of the package~:[~;s~] ~{~A~^, ~} and "
  136.       "exports ~:[no symbols~;the symbols ~:*~{~S~^ ~}~]"
  137.       #Y(LISP::DESCRIBE-1 #16Y(00 01 00 00 00 02 A9 07 00 00 55 0C 00 00 19 02)
  138.          NIL
  139.         )
  140.       #.#'SYMBOL-NAME " to the package~:[~;s~] ~{~A~^, ~}" "."
  141.       "a hash table with ~S entr~:@P." "~:[a~;the Common Lisp~] readtable."
  142.       "a pathname~:[.~;~:*, with the following components:~{~A~}~]"
  143.       (:HOST :DEVICE :DIRECTORY :NAME :TYPE :VERSION) "~%~A = ~A" MAKE-PATHNAME
  144.       "a random-state."
  145.       "a byte specifier, denoting the ~S bits starting at bit position ~S of an integer."
  146.       "a load-time evaluation promise."
  147.       "a label used for resolving #~D# references during READ." ADDRESS-OF
  148.       #.(ASH MOST-POSITIVE-FIXNUM -1.)
  149.       "a pointer into the stack. It points to:" DESCRIBE-FRAME
  150.       "a special-purpose object." "a machine address."
  151.       "a structure of type ~S." 0.
  152.       "~%As such, it is also a structure of type ~{~S~^, ~}."
  153.       "a~:[~; simple~] ~R dimensional array" " (vector)" " of ~(~A~)s"
  154.       ", adjustable" ", of size ~{~S~^ x ~}"
  155.       " and current length (fill-pointer) ~S" "."
  156.       "~%For more information, evaluate ~{~S~^ or ~}."
  157.   )  )
  158. #Y(#:TOP-LEVEL-FORM-8 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
  159.    DESCRIBE-SIGNATURE REMOVE-OLD-DEFINITIONS
  160.    #Y(DESCRIBE-SIGNATURE
  161.       #127Y(00 06 00 00 00 00 5C D4 2E 01 5C D6 5B D7 D7 1A 34 D9 7B 01 D7 1A
  162.             0C 7C 01 5B DA AB 66 03 01 7B 02 7C 00 A8 B3 88 01 30 6E 16 01 8A
  163.             08 26 DB 7B 01 DC 7B 01 8A 07 3D 1A 1E 7C 01 5B D8 AB 66 03 01 7B
  164.             02 7C 00 A8 B4 88 01 30 6E 16 01 B1 85 A7 40 89 08 5A 8A 07 1D DD
  165.             7B 01 AE 5B 1A 0A 7E 01 00 14 69 8B 7B 03 7A 01 A9 84 B6 72 16 02
  166.             8A 05 03 DE 7B 01 A9 30 65 16 01 EA 2B 03 01 19 07
  167.            )
  168.       "~%argument list: " FORMAT "(~{~A~^ ~})" 0. "ARG~D" &OPTIONAL "ARG~D"
  169.       &REST "OTHER-ARGS" &KEY &ALLOW-OTHER-KEYS
  170.   )  )
  171. #Y(#:TOP-LEVEL-FORM-9 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
  172.    WRITE-TO-SHORT-STRING REMOVE-OLD-DEFINITIONS
  173.    #Y(WRITE-TO-SHORT-STRING
  174.       #140Y(00 02 00 00 00 03 AA 85 2F 08 AA 85 2D 04 D4 D5 1A 28 AA 36 0B 2F
  175.             8A 19 03 92 EC 16 01 1A 1B A9 A9 6B 02 33 D7 6A C8 AD 36 0B 9E F3
  176.             F2 69 8A 6A 63 AD 87 01 2F 63 92 EB 16 01 A8 AA 6B 01 34 D6 88 01
  177.             2B 5B 93 16 01 EA A8 D7 8D 02 6B 02 35 1A 22 92 EC 16 01 1A 1C A9
  178.             A9 6B 02 33 D7 6A C8 AE 36 0B A1 F3 9E F2 69 8A 6A 63 AE 87 01 2F
  179.             62 92 EB 16 01 A8 AA 6B 01 34 D6 88 01 2B 5A 93 16 01 EA AC 36 0B
  180.             9F F3 9E F2 2F 8A 19 05
  181.            )
  182.       0. 16. 1. 2.
  183.   )  )
  184. #Y(#:TOP-LEVEL-FORM-10
  185.    #32Y(00 00 00 00 00 01 00 29 03 00 0B 00 00 0B 00 01 0B 00 02 D4 2D 01 D4 A9
  186.         65 02 01 30 96 BE 19 02
  187.        )
  188.    DRIBBLE REMOVE-OLD-DEFINITIONS
  189.    #Y(DRIBBLE
  190.       #118Y(00 00 00 01 00 07 37 01 18 74 01 89 01 16 07 00 00 1B 80 40 DA 2D
  191.             02 19 02 D5 61 00 00 2E 02 1A 2E 8A 01 6A 07 00 00 1B 70 A9 D7 36
  192.             03 30 1F 0C 00 00 0E 04 0C 00 01 0E 05 0C 00 02 63 04 61 00 00 30
  193.             88 0F 04 63 05 61 00 00 31 02 29 0F 05 07 00 00 19 02 07 00 01 0F
  194.             04 07 00 02 0F 05 00 0C 00 01 0C 00 02 61 00 00 61 00 00 36 01 30
  195.             91 00 0C 00 00 15 19 02
  196.            )
  197.       NIL "Already dribbling to ~S" WARN :OUTPUT *STANDARD-INPUT*
  198.       *STANDARD-OUTPUT* "Currently not dribbling."
  199.   )  )
  200. #Y(#:TOP-LEVEL-FORM-11 #16Y(00 00 00 00 00 01 D4 2F 5F D5 5B 2F 56 BF 19 01)
  201.    (SPECIAL *EDITOR*) *EDITOR*
  202.   )
  203. #Y(#:TOP-LEVEL-FORM-12 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
  204.    EDITOR-TEMPFILE REMOVE-OLD-DEFINITIONS
  205.    #Y(EDITOR-TEMPFILE #9Y(00 00 00 00 00 01 BE 19 01) "LISPTEMP.LSP")
  206.   )
  207. #Y(#:TOP-LEVEL-FORM-13 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
  208.    EDIT-FILE REMOVE-OLD-DEFINITIONS
  209.    #Y(EDIT-FILE
  210.       #45Y(00 01 00 00 00 02 0E 00 1C 20 63 00 AA 5C 6A 1A D6 69 67 6B 02 35 36
  211.            01 6A CB 66 03 03 D8 D9 6A 4F 63 06 36 02 2F 8E 15 19 02 D5 5A 00
  212.           )
  213.       *EDITOR* "No external editor installed." 0.99 EXECUTE (#\Escape #\E)
  214.       STRING *TERMINAL-IO*
  215.   )  )
  216. #Y(#:TOP-LEVEL-FORM-14 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01) ED
  217.    REMOVE-OLD-DEFINITIONS
  218.    #Y(ED
  219.       #245Y(00 00 00 01 00 07 39 01 01 03 8A 04 0F AC 85 42 05 AC 86 2E 80 A3
  220.             96 14 2D 01 19 05 BE 1A 78 96 EC 1A 80 A3 A9 D8 6A 50 AA D9 6A 50
  221.             AB DA 6A 50 AC DB 6A 50 AD DC 6A 50 6B 05 00 2C 09 14 A8 DE 36 03
  222.             6A 1F 4D 1B AD AB 2F 88 AA 2F 90 AA 2F 90 8A 02 05 14 36 01 30 91
  223.             3A 4E 05 00 00 1C 0B 1A 05 05 00 00 1C 04 14 5C 30 91 4F 16 01 A8
  224.             2D 01 A8 DF 36 03 6A 1F 4D 32 0E 0C 10 0C 1A 0C A8 01 02 B3 69 61
  225.             36 01 2F 87 16 01 AD 5B E1 36 01 69 79 A8 E1 86 28 68 16 01 11 8A
  226.             02 05 14 36 01 30 91 3A 4E 05 00 00 1C 0B 1A 05 05 00 00 1C 04 14
  227.             5C 30 91 4F 16 01 96 19 07 AC 85 2D FF 61 AC 86 44 2F AC D6 78 50
  228.             02 AA 84 54 26 AA 77 5C 01 1B 05 94 56 EB 1C 1B A9 86 44 17 A9 85
  229.             30 13 AC 85 2D 05 A9 AD 86 28 0A AA D7 36 01 78 98 00 1B FF 33 E2
  230.             AD 5A 01
  231.            )
  232.       "" EDIT-FILE 0. DEFINITION 4. 5. 6. 7. 8. EDITOR-TEMPFILE :OUTPUT :INPUT
  233.       *PACKAGE* "EOF" "~S cannot be edited."
  234.   )  )
  235. #Y(#:TOP-LEVEL-FORM-15 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
  236.    SAVEINITMEM REMOVE-OLD-DEFINITIONS
  237.    #Y(SAVEINITMEM
  238.       #37Y(00 00 00 00 00 01 D4 30 0B 00 0F 01 0F 02 0F 03 0F 04 0F 05 0F 06 0F
  239.            07 0F 08 0F 09 0F 0A DF 30 26 2F 66 19 01
  240.           )
  241.       #Y(LISP::SAVEINITMEM-1 #12Y(00 01 00 00 00 02 A9 D4 30 9D 19 02)
  242.          DEFINITION
  243.         )
  244.       - + ++ +++ * ** *** / // /// "lispinit.mem"
  245.   )  )
  246. #Y(#:TOP-LEVEL-FORM-16 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
  247.    MYSHELL REMOVE-OLD-DEFINITIONS
  248.    #Y(MYSHELL
  249.       #300Y(00 01 00 00 00 02 90 00 AA 36 04 6A 7D 8A 00 80 4D A8 23 01 07 AA
  250.             A9 36 01 78 61 02 16 01 90 00 AA 36 04 85 7C 03 A9 30 63 14 AA D5
  251.             AA 6A 61 5B AC 90 00 AE 36 04 9B EC 85 7D 03 AD 30 63 14 36 01 6A
  252.             61 AA 78 0D 02 D6 AB 6A 10 36 03 83 DC 11 AA 59 01 EB AA 85 12 80
  253.             C7 5B AA 1A 80 B7 00 19 03 D7 67 04 8A 00 2B D5 5B 1A 0D AB AB AA
  254.             6A 61 7B 01 A8 78 AB 02 16 01 D9 AB 36 06 9B EE 6A 7B 89 00 68 AB
  255.             AB 36 01 6A 61 7B 01 16 01 A8 30 65 16 02 14 DA 7B 00 14 5C 36 05
  256.             C5 EB 78 71 00 5B A9 1A 24 A8 DD 31 02 13 1A 14 8B 00 A8 6A 63 86
  257.             A7 0B A8 A9 6A 63 6A AC 69 34 24 08 66 92 14 6A 0D 7B 02 16 01 7A
  258.             00 92 20 60 16 01 A8 2F CC 16 01 EA 5B A9 1A 0E 8B 00 AF A9 36 01
  259.             6A 17 7B 02 16 01 7A 00 92 20 6F 16 01 A8 2F CC 16 03 1A FF 62 14
  260.             A9 2E 0E 19 06 8B 00 A8 DE 36 01 6A 17 A9 DF 36 01 6A 17 AA E0 36
  261.             01 6A 17 73 03 AB 77 CB 02 16 01 7A 00 92 20 5F 16 01 A8 2F CC 16
  262.             01 EB E1 AA 36 04 78 79 02 1B 48 00 19 06
  263.            )
  264.       WHITESPACEP 0. :ABSOLUTE "PATH" GETENV #\; "" #.#'EQUAL #\\ "\\" #".PRG"
  265.       #".TTP" #".TOS" #.#'PROBE-FILE EXECUTE
  266.   )  )